program AddToBegin;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  pelement = ^element;
  element = record
    value: Integer;
    next: pelement;
  end;

var
  head: pelement;

begin
  New (head);
  head^.value:=5;
  New (head^.next);
  head^.next^.value:=6;
  new (head^.next^.next);
  head^.next^.next^.value:=6;
  head^.next^.next^.next:=nil;
end.
